﻿Public Class clSueloDañinoEventArgs : Inherits EventArgs
    Private _ValorDañino As Integer
    Public ReadOnly Property ValorDañino As Integer
        Get
            Return _ValorDañino
        End Get
    End Property
    Public Sub New(ByVal ValorDañino As Integer)
        _ValorDañino = ValorDañino
    End Sub
    Public Sub Dañar(ByRef Heroe As clHeroe)
        Heroe.VidaRestante = Heroe.VidaRestante - ValorDañino
    End Sub
End Class
